Imports System
Module qs

Sub Main()
    ' number 函数必须使用导入 Math 类
    Dim a as Integer = MsgBox("this is message",vbYesNo,"this is title")
    Console.WriteLine(a)
    Console.ReadKey()
End Sub 

End Module
